﻿Public Class SnakeNode
    '坐标
    Dim x As Int32
    Dim y As Int32
    '前后结点
    Public nextNode As SnakeNode
    Public preNode As SnakeNode
    '构造方法
    Sub New(x As Int32, y As Int32)
        Me.x = x
        Me.y = y
    End Sub
    '获取x值
    Function getx() As Int32
        Return x
    End Function
    '设置x值
    Sub setx(x As Int32)
        Me.x = x
    End Sub
    '获取y值
    Function gety() As Int32
        Return y
    End Function
    '设置y值
    Sub sety(y As Int32)
        Me.y = y
    End Sub
End Class
